home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
t_os
/
nem
/
nem.exe
/
SMHP.PLP
< prev
next >
Wrap
Text File
|
1991-08-17
|
2KB
|
63 lines
/* auto pilot program 「NEM 2.04」 1991.4.01 By GOOSE(MAF00070) */
/* Smhp(ONEPROC);
** 複数のメモをHPに書き込む。
** ONEPROC:書き込むメモ番号列 「SMHP=1,2,3,・・・・,No,」
*/
/* %Smhp { */
/* [ONEPROC] */
%send1hp { [SENDDATA]
%SENDHP @head(@memo(SENDDATA,1,1),{\n});
var HPDATA[80];var HPNAME[8];var HPPASS[16];
HPDATA:=HP;HPNAME:={};HPPASS:={};
loop({%temp1 @head(HPDATA,{,});
case(temp1={No},
{Yes},{im({No})},
{No},{case(@tail(temp1,{:})=SENDHP,
{No},{HPDATA:=@body(HPDATA,{,});im({Yes})},
{Yes},{HPNAME:=@head(temp1,{:});
HPPASS:=@body(temp1,{:},{:});
im({No})})})});
case(HPPASS={},
{Yes},{Flash;Flash;
display({HPの情報が設定されていません。\n})},
{No},{%SENDTITLE @memo(SENDDATA,2,1);
type({GO HP\n});
loop({wait(ABORTTIME,{Abort},
{\n>},{im({No})},
{\n続き (改行で表示},{type({\n});im({Yes})},
{\nmore>},{type({\n});im({Yes})})
});
type({1\n});
wait(ABORTTIME,{Abort},{自分のHP)\n:},);
type(HPNAME|{\n});
case(UID<>HPNAME,
{Yes},{wait(ABORTTIME,{Abort},{パスワード\n:},);
type(HPPASS|{\n})});
type({WRITE\n});
wait(ABORTTIME,{Abort},{20文字以内)\n:},);
type(SENDTITLE);
wait(ABORTTIME,{Abort},{1:OK 2:NG) \n:},);
type({1\n});
wait(ABORTTIME,{Abort},{終了は行頭で/E)\n},);
%temp @memo(SENDDATA,3);
%temp2 {DEL }|PLTPATH|{\}|{NEMSEND.WRK};
dispoff({Yes});command(temp2);dispoff({No});
write(PLTPATH|{\}|{NEMSEND.WRK},temp);send(PLTPATH|{\}|{NEMSEND.WRK});
dispoff({Yes});command(temp2);dispoff({No});
type({\n});type({/E\n});
wait({180},{Abort},{2:しない)\n:},);
type({2\n});
wait(ABORTTIME,{Abort},{2:しない)\n:},);
case(DEBUG={Yes},{No},{type({1\n})},{Yes},{type({2\n})});
wait(ABORTTIME,{Abort},{\nHP>},);})
};
var ALLDATA[256];ALLDATA:=@body(ONEPROC,{SMHP=});
loop({%temp @head(ALLDATA,{,});
case(temp={No},
{Yes},{im({No})},
{No},{ALLDATA:=@body(ALLDATA,{,});send1hp(temp);im({Yes})}
)});
/* }; */